mydata <- read.csv("dataset.csv")

mydata$country<-as.factor(mydata$country)
mydata$country <- relevel(mydata$country, ref = "Brazil")

m1 <- glm(approved ~             
            factor(country)+
            timesubm+
            sinceasu+
            factor(foundational)+
            factor(execrlc)+
            prespartyshare+
            sizecoal+
            numbpartcoal+
            gdpgrowth+
            trade_mercosur+
            factor(phase)+
            factor(election), 
          family = binomial(link="logit"),
          data = mydata)

m2 <- glm(approved ~             
            factor(country)+
            timesubm+
            prespartyshare+
            factor(execrlc)+
            sizecoal+
            numbpartcoal+
            factor(election)+
            gdpgrowth, 
          family = binomial(link="logit"),
          data = mydata)

m3 <- glm(approved ~             
            factor(country)+
            sinceasu+
            factor(foundational)+
            factor(phase)+
            trade_mercosur+
            gdpgrowth, 
          family = binomial(link="logit"),
          data = mydata)